home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ruthie / open2.frm < prev    next >
Text File  |  1995-05-08  |  3KB  |  94 lines
  1. VERSION 2.00
  2. Begin Form Open2 
  3.    Caption         =   "About Ruthie..."
  4.    ClientHeight    =   3975
  5.    ClientLeft      =   3780
  6.    ClientTop       =   420
  7.    ClientWidth     =   5955
  8.    Height          =   4380
  9.    Left            =   3720
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3975
  15.    ScaleWidth      =   5955
  16.    Top             =   75
  17.    Width           =   6075
  18.    Begin TextBox Text4 
  19.       BorderStyle     =   0  'None
  20.       Enabled         =   0   'False
  21.       Height          =   495
  22.       Left            =   120
  23.       MultiLine       =   -1  'True
  24.       TabIndex        =   4
  25.       Text            =   "John Murdoch (Ruthie's uncle) CompuServe 71507,1212"
  26.       Top             =   3480
  27.       Width           =   3615
  28.    End
  29.    Begin CommandButton Command1 
  30.       Caption         =   "Continue"
  31.       Height          =   375
  32.       Left            =   3960
  33.       TabIndex        =   5
  34.       Top             =   2760
  35.       Width           =   1455
  36.    End
  37.    Begin TextBox Text3 
  38.       BorderStyle     =   0  'None
  39.       Enabled         =   0   'False
  40.       Height          =   855
  41.       Left            =   720
  42.       MultiLine       =   -1  'True
  43.       TabIndex        =   3
  44.       Text            =   "Ruthie Shipps Library Fund Chapel Forge Special Center    12711 Milan Way             Bowie, MD 20715"
  45.       Top             =   2520
  46.       Width           =   2655
  47.    End
  48.    Begin TextBox Text2 
  49.       BorderStyle     =   0  'None
  50.       Enabled         =   0   'False
  51.       Height          =   975
  52.       Left            =   1920
  53.       MultiLine       =   -1  'True
  54.       TabIndex        =   2
  55.       Text            =   "If you enjoy Ruthie!, you can do a lot of good by sending a $5 check to Ruthie's school. Your contribution will be used for library books for handicapped children."
  56.       Top             =   1560
  57.       Width           =   3855
  58.    End
  59.    Begin TextBox Text1 
  60.       BorderStyle     =   0  'None
  61.       Enabled         =   0   'False
  62.       Height          =   1335
  63.       Left            =   1920
  64.       MultiLine       =   -1  'True
  65.       TabIndex        =   1
  66.       Text            =   "Ruthie Shipps is a little girl in suburban Washington, D.C. She's handicapped, and has great trouble processing language. But she loves to play with a mouse. This game was designed to help Ruthie develop mouse skills and have fun. "
  67.       Top             =   240
  68.       Width           =   3855
  69.    End
  70.    Begin PictureBox Picture1 
  71.       Height          =   2175
  72.       Left            =   120
  73.       Picture         =   OPEN2.FRX:0000
  74.       ScaleHeight     =   2145
  75.       ScaleWidth      =   1665
  76.       TabIndex        =   0
  77.       Top             =   120
  78.       Width           =   1695
  79.    End
  80. End
  81. Sub Command1_Click ()
  82.     Open2.Hide
  83. End Sub
  84.  
  85. Sub Form_Load ()
  86.     Top = (Screen.Height - Open2.Height) / 2
  87.     Left = (Screen.Width - Open2.Width) / 2
  88. End Sub
  89.  
  90. Sub Picture1_Click ()
  91.     Open2.Hide
  92. End Sub
  93.  
  94.